home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / drop.sty < prev    next >
Text File  |  1988-04-18  |  947b  |  19 lines
  1. \typeout{DROP.STY <February 17, 1988>}
  2. %%%%%%%%%%%%%%%%%%%%% BOX ONE %%%%%%%%%%%%%%%%%%%%%%%%%
  3. %\typein[\dropinitialfont]{Font for Dropped initial:} %
  4. %\font\largefont \dropinitialfont                     %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6. %%%%%%%%%%%%%%%%%%%%% BOX TWO %%%%%%%%%%%%%%%%%%%%%%%%%
  7. \font\largefont= cmr10 scaled \magstep5               %
  8. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  9. \def\drop#1#2{{\noindent
  10.     \setbox0\hbox{\largefont #1}\setbox1\hbox{#2}\setbox2\hbox{(}%
  11.     \count0=\ht0\advance\count0 by\dp0\count1\baselineskip
  12.     \advance\count0 by-\ht1\advance\count0by\ht2
  13.     \dimen1=.5ex\advance\count0by\dimen1\divide\count0 by\count1
  14.     \advance\count0 by1\dimen0\wd0
  15.     \advance\dimen0 by.25em\dimen1=\ht0\advance\dimen1 by-\ht1
  16.     \global\hangindent\dimen0\global\hangafter-\count0
  17.     \hskip-\dimen0\setbox0\hbox to\dimen0{\raise-\dimen1\box0\hss}%
  18.     \dp0=0in\ht0=0in\box0}#2}
  19.